500
How can I select a column
With AxG2antt1
	.MarkSearchColumn = False
	.SingleSel = False
	.FullRowSelect = EXG2ANTTLib.CellSelectEnum.exRectSel
	.Columns.Add("Column1").Selected = True
	.Columns.Add("Column2")
	With .Items
		.CellValue(.AddItem("One"),1) = "One"
	End With
	With .Items
		.CellValue(.AddItem("Two"),1) = "Two"
	End With
	.Items.SelectAll()
End With
499
How can I avoid focusing a new cell, when user presses an arrow, page, home or end key, while the editor is opened
With AxG2antt1
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exLeftArrow,0)
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exRightArrow,0)
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exUpArrow,0)
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exDownArrow,0)
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exHomeKey,0)
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exEndKey,0)
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exPageUpKey,0)
	.set_DefaultEditorOption(EXG2ANTTLib.EditorOptionEnum.exPageDownKey,0)
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.EditType
	With .Items
		.CellValue(.AddItem(0),1) = 1
	End With
	With .Items
		.CellValue(.AddItem(2),1) = 3
	End With
End With
498
How can I expand predefined items in a drop down list editor as I type

With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("DropDown")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		With .Editor
			.Option(EXG2ANTTLib.EditorOptionEnum.exExpandOnSearch) = True
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"<b>CObject</b> class",1)
			.InsertItem(2,"<b>CCmdTarget</b> class",2,1)
			.InsertItem(3,"<b>CWnd</b> class",3,2)
			.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1)
			.AddItem(4,"Exceptions",1)
			.InsertItem(7,"<b>System</b> Exceptions",2,4)
			.AddItem(5,"File Services",2)
		End With
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
497
How can I add an extra button to a date picker editor

With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.DefaultItemHeight = 20
	With .Columns.Add("Date").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.AddButton("B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1")
		.ButtonWidth = 20
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
	End With
End With
496
How can I add an extra button to a spin editor
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.DefaultItemHeight = 20
	With .Columns.Add("Date").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
		.AddButton("B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1")
		.ButtonWidth = 20
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
	End With
End With
495
How can I remove or delete the buttons in the editor
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
		.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
		.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
		.RemoveButton("B1")
		.ButtonWidth = 20
	End With
	With .Items
		.AddItem("Text 1")
		.AddItem("Text 2")
	End With
End With
494
How can I hide the buttons in the editor
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.DefaultItemHeight = 24
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
		.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
		.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
		.ButtonWidth = 0
	End With
	With .Items
		.AddItem("Text 1")
		.AddItem("Text 2")
	End With
End With
493
How can I change the width of the buttons in the editor
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	.DefaultItemHeight = 24
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
		.AddButton("B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3")
		.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
		.ButtonWidth = 24
	End With
	With .Items
		.AddItem("Text 1")
		.AddItem("Text 2")
	End With
End With
492
How can I add extra buttons to an editor
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("Edit").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.AddButton("B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1")
		.AddButton("B2",2,0,"This is a bit of text that's shown when the cursor hovers the button B2")
		.AddButton("B3",3,1,"This is a bit of text that's shown when the cursor hovers the button B3")
		.AddButton("B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4")
	End With
	With .Items
		.AddItem("Text 1")
		.AddItem("Text 2")
	End With
End With
491
is there any function to specify the number of rows / items being visible in a drop down list editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
		.DropDownRows = 1
		.PopupAppearance = EXG2ANTTLib.InplaceAppearanceEnum.FlatApp
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
490
How can I change the border for a drop down editor
With AxG2antt1
	With .Columns.Add("Date").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.PopupAppearance = EXG2ANTTLib.InplaceAppearanceEnum.FlatApp
	End With
	.Items.AddItem("Today")
	With .Items
		.CellEditor(.AddItem("Today"),0).EditType = EXG2ANTTLib.EditTypeEnum.DateType
	End With
End With
489
How can I remove a predefined item in a drop down editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
		.Option(EXG2ANTTLib.EditorOptionEnum.exColorListShowName) = True
		.RemoveItem(255)
	End With
	.Items.AddItem(255)
	.Items.AddItem(65280)
End With
488
How can I remove or clear all predefined items in a drop down editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
		.ClearItems()
		.AddItem(255,"Red Color")
	End With
	.Items.AddItem(255)
End With
487
How can I center the predefined items in a drop down editor editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
		.DropDownAlignment = EXG2ANTTLib.AlignmentEnum.CenterAlignment
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
486
How can I right align the items in a drop down editor editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
		.DropDownAlignment = EXG2ANTTLib.AlignmentEnum.RightAlignment
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
485
How can I specify the width of the drop down editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
		.DropDownMinWidth = 385
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
	End With
	With .Items
		.AddItem(255)
		.AddItem(65280)
	End With
End With
484
How can hide the drop down button for an editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.DropDownVisible = False
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
	End With
	With .Items
		.AddItem(255)
		.AddItem(65280)
	End With
End With
483
How can assign a tooltip to a drop down list editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
		.ItemToolTip(1) = "This is a tooltip that shows when user hovers the <b>first</b> item"
		.ItemToolTip(2) = "This is a tooltip that shows when user hovers the <b>second</b> item"
		.ItemToolTip(3) = "This is a tooltip that shows when user hovers the <b>third</b> item"
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
482
How can I lock, disable make read only an editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.Locked = True
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
481
How can I sort the items in a drop down list editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"Second item")
		.AddItem(2,"First item")
		.AddItem(3,"Third item")
		.SortItems(True)
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
480
How can I expand an item in the tree or a hierarchy of a drop down editor
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("DropDown")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"<b>CObject</b> class",1)
			.InsertItem(2,"<b>CCmdTarget</b> class",2,1)
			.InsertItem(3,"<b>CWnd</b> class",3,2)
			.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1)
			.AddItem(4,"Exceptions",1)
			.InsertItem(7,"<b>System</b> Exceptions",2,4)
			.AddItem(5,"File Services",2)
			.ExpandItem(1) = True
		End With
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
479
How can I display a tree or a hierarchy in a drop down editor
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("DropDown")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
			.DropDownAutoWidth = EXG2ANTTLib.DropDownWidthType.exDropDownEditorWidth
			.AddItem(1,"<b>CObject</b> class",1)
			.InsertItem(2,"<b>CCmdTarget</b> class",2,1)
			.InsertItem(3,"<b>CWnd</b> class",3,2)
			.InsertItem(6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1)
			.AddItem(4,"Exceptions",1)
			.InsertItem(7,"<b>System</b> Exceptions",2,4)
			.AddItem(5,"File Services",2)
			.ExpandAll()
		End With
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
478
How can I look for items that includes the typed characters in a drop down list editor
With AxG2antt1
	With .Columns.Add("DropDown").Editor
		.Option(EXG2ANTTLib.EditorOptionEnum.exAutoSearch) = 1
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
477
How can I keep the selection background color while editor is visible

With AxG2antt1
	.SelBackColor = RGB(255,0,0)
	With .Columns.Add("DropDown").Editor
		.Option(EXG2ANTTLib.EditorOptionEnum.exKeepSelBackColor) = True
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item")
		.AddItem(2,"Second item")
		.AddItem(3,"Third item")
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
476
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("DropDown").Editor
		.Option(EXG2ANTTLib.EditorOptionEnum.exAutoDropDownList) = 1
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item",1)
		.AddItem(2,"Second item",3)
		.AddItem(3,"Third item",2)
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
475
How can I automatically drop down the list editor, when the user starts typing in the editor
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("DropDown").Editor
		.Option(EXG2ANTTLib.EditorOptionEnum.exAutoDropDownList) = -1
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"First item",1)
		.AddItem(2,"Second item",3)
		.AddItem(3,"Third item",2)
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
474
How can I add a Font editor
With AxG2antt1
	.Columns.Add("Font").Editor.EditType = EXG2ANTTLib.EditTypeEnum.FontType
	.Items.AddItem("Tahoma")
End With
473
How can I change the visual appearance for the buttons in the calculator editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
		.Option(EXG2ANTTLib.EditorOptionEnum.exCalcPictureUp) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.Option(EXG2ANTTLib.EditorOptionEnum.exCalcPictureDown) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	End With
	.Items.AddItem(10)
End With
472
How can I customize the caption of buttons in the calculator editor

Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
		.Option(EXG2ANTTLib.EditorOptionEnum.exCalcButtons) = "0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>"
	End With
	.Items.AddItem(10)
End With
471
How can I customize the caption of buttons in the calculator editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
		.Option(EXG2ANTTLib.EditorOptionEnum.exCalcButtons) = "0;1;2;3;4;5;6;7;8;9"
	End With
	.Items.AddItem(10)
End With
470
How can I specify the width and height of the buttons in the calculator editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
		.Option(EXG2ANTTLib.EditorOptionEnum.exCalcButtonWidth) = 32
		.Option(EXG2ANTTLib.EditorOptionEnum.exCalcButtonHeight) = 32
	End With
	.Items.AddItem(10)
End With
469
How can I change the "Cannot divide by zero" message that shows in the calculator editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
		.Option(EXG2ANTTLib.EditorOptionEnum.exCalcCannotDivideByZero) = "Divizion by zero"
	End With
	.Items.AddItem(10)
End With
468
How can I enable or disable executing operations while the calculator editor is focused and closed
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
		.Option(EXG2ANTTLib.EditorOptionEnum.exCalcExecuteKeys) = False
	End With
	.Items.AddItem(10)
End With
467
How can I add a calculator editor

With AxG2antt1
	.Columns.Add("Slider").Editor.EditType = EXG2ANTTLib.EditTypeEnum.CalculatorType
	.Items.AddItem(10)
End With
466
How can I edit a number between a range or interval
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Numeric = EXG2ANTTLib.NumericEnum.exInteger
		.Option(EXG2ANTTLib.EditorOptionEnum.exSpinStep) = 0
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = 0
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMin) = 5
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMax) = 15
	End With
	.Items.AddItem(10)
End With
465
How can I hide or show the spin in the slider or track bar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Option(EXG2ANTTLib.EditorOptionEnum.exSpinStep) = 0
	End With
	.Items.AddItem(10)
End With
464
How can I add a slider or track bar editor, with a fixed size
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = 64
	End With
	.Items.AddItem(10)
End With
463
How can I add a slider or track bar editor, so it covers half of the cell
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = -50
	End With
	.Items.AddItem(10)
End With
462
How can I add a slider or track bar editor, so it covers the full cell
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = -100
	End With
	.Items.AddItem(10)
End With
461
How can I add a slider or track bar editor within a range or interval of numbers
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Numeric = EXG2ANTTLib.NumericEnum.exInteger
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMin) = 5
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMax) = 15
	End With
	.Items.AddItem(10)
End With
460
How can I add a slider or track bar editor within a range or interval of float numbers
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Numeric = EXG2ANTTLib.NumericEnum.exFloat
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMin) = 0
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMax) = 1
		.Option(EXG2ANTTLib.EditorOptionEnum.exSpinStep) = "0.01"
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderStep) = "0.01"
	End With
	.Items.AddItem("0.3")
End With
459
How can I add a spin editor within a range or interval of float numbers
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Numeric = EXG2ANTTLib.NumericEnum.exFloat
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = 0
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMin) = 0
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMax) = 1
		.Option(EXG2ANTTLib.EditorOptionEnum.exSpinStep) = "0.01"
	End With
	.Items.AddItem("0.3")
End With
458
How can I add a spin editor within a range or interval of numbers
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
		.Numeric = EXG2ANTTLib.NumericEnum.exInteger
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderWidth) = 0
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMin) = 5
		.Option(EXG2ANTTLib.EditorOptionEnum.exSliderMax) = 15
	End With
	.Items.AddItem(10)
End With
457
How can I add a slider or track bar editor
With AxG2antt1
	.Columns.Add("Slider").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SliderType
	.Items.AddItem(10)
End With
456
I have check box column, but the check-boxes looks disabled. What can I do
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Check").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
		.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
	End With
	With .Items
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
	End With
End With
455
How do I add check box column, so the cell value is changed as I click the cells
With AxG2antt1
	.MarkSearchColumn = False
	With .Columns.Add("C")
		.Width = 18
		.AllowSizing = False
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
			.Option(EXG2ANTTLib.EditorOptionEnum.exCheckValue2) = 1
		End With
	End With
	.Columns.Add("Text")
	With .Items
		.CellValue(.AddItem(False),1) = "Check 1"
		.CellValue(.AddItem(True),1) = "Check 2"
		.CellValue(.AddItem(False),1) = "Check 3"
	End With
End With
454
How do I add check box column, so the cell value is changed as I click the cells
With AxG2antt1
	.Columns.Add("Check").Editor.EditType = EXG2ANTTLib.EditTypeEnum.CheckValueType
	With .Items
		.AddItem(False)
		.AddItem(True)
		.AddItem(False)
	End With
End With
453
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control

Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MemoDropDownType
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoDropDownAcceptReturn) = False
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
452
How do I add a vertical scroll bar for a memo or a multiple lines edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MemoDropDownType
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
451
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MemoDropDownType
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoHScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
450
How can I specify the width or the height for a drop down memo or a multiple lines edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MemoDropDownType
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoDropDownWidth) = 256
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoDropDownHeight) = 64
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
449
How do I add a drop down memo or a multiple lines edit control
With AxG2antt1
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.MemoDropDownType
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
448
How do I add a color list editor with my own or custom colors
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
		.Option(EXG2ANTTLib.EditorOptionEnum.exColorListShowName) = True
		.ClearItems()
		.AddItem(255,"Red Color")
		.AddItem(16711680,"Blue Color")
		.AddItem(65280,"Green Color")
	End With
	.Items.AddItem(255)
End With
447
How do I add a color list editor with my own or custom colors

Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
		.ClearItems()
		.AddItem(255,"Red Color")
		.AddItem(16711680,"Blue Color")
		.AddItem(65280,"Green Color")
	End With
	.Items.AddItem(255)
End With
446
How can I show the color's name in a color list editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
		.Option(EXG2ANTTLib.EditorOptionEnum.exColorListShowName) = True
	End With
	.Items.AddItem(255)
End With
445
How do I add a color list editor
With AxG2antt1
	.Columns.Add("Color").Editor.EditType = EXG2ANTTLib.EditTypeEnum.ColorListType
	.Items.AddItem(255)
End With
444
How can I access my own custom or ActiveX editor

With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.DefaultItemHeight = 128
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.UserEditorType
		.UserEditor("MSCAL.Calendar","")
		With .UserEditorObject
			.BackColor = RGB(255,255,255)
			.GridCellEffect = 0
			.ShowTitle = False
			.ShowDateSelectors = False
		End With
	End With
	With .Items
		.AddItem("MSCal.Calendar")
		.AddItem("MSCal.Calendar")
	End With
End With
443
How can I add my own custom or ActiveX editor
With AxG2antt1
	.DrawGridLines = EXG2ANTTLib.GridLinesEnum.exAllLines
	.DefaultItemHeight = 128
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.UserEditorType
		.UserEditor("MSCAL.Calendar","")
	End With
	With .Items
		.AddItem("MSCal.Calendar")
		.AddItem("MSCal.Calendar")
	End With
End With
442
How can I add a hyperlink editor
With AxG2antt1
	.Columns.Add("Shell.Execute").Editor.EditType = EXG2ANTTLib.EditTypeEnum.LinkEditType
	.Items.AddItem("http://www.exontrol.com")
	.Items.AddItem("c:\")
End With
441
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select

With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.PickEditType
		.AddItem(1,"The first item",1)
		.AddItem(2,"The second item",3)
		.AddItem(3,"The third item",2)
	End With
	With .Items
		.AddItem("The first item")
		.AddItem("The third item")
	End With
End With
440
How can I show or hide the rectangle arround progress bar editor

Dim var_Editor
With AxG2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
		.Option(EXG2ANTTLib.EditorOptionEnum.exProgressBarMarkTicker) = False
	End With
	.Items.AddItem(33)
End With
439
How can I hide the caption / percent in the progress bar editor
Dim var_Editor
With AxG2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
		.Option(EXG2ANTTLib.EditorOptionEnum.exProgressBarAlignment) = -1
	End With
	.Items.AddItem(33)
End With
438
How can I align the caption in the center of the progress bar editor
Dim var_Editor
With AxG2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
		.Option(EXG2ANTTLib.EditorOptionEnum.exProgressBarAlignment) = 1
	End With
	.Items.AddItem(33)
End With
437
How can I align the caption to the right in the progress bar editor
Dim var_Editor
With AxG2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
		.Option(EXG2ANTTLib.EditorOptionEnum.exProgressBarAlignment) = 2
	End With
	.Items.AddItem(33)
End With
436
How can I change the background color for a progress bar editor
Dim var_Editor
With AxG2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
		.Option(EXG2ANTTLib.EditorOptionEnum.exProgressBarBackColor) = 255
	End With
	.Items.AddItem(33)
End With
435
How can I add a progress bar editor
With AxG2antt1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	.Columns.Add("Progress").Editor.EditType = EXG2ANTTLib.EditTypeEnum.ProgressBarType
	.Items.AddItem(33)
End With
434
How can I add a button editor
With AxG2antt1
	.Columns.Add("Button").Editor.EditType = EXG2ANTTLib.EditTypeEnum.ButtonType
	.Items.AddItem("Just a text")
End With
433
How can I show or hide the type of the OLE Object for Photo or a Picture editor

Dim h
With AxG2antt1
	.ColumnAutoResize = False
	With .Columns.Add("Photo")
		.Width = 74
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.PictureType
			.Option(EXG2ANTTLib.EditorOptionEnum.exShowPictureType) = False
		End With
	End With
	With .Items
		h = .AddItem()
		.CellValue(h,0) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
		.ItemHeight(h) = 64
	End With
End With
432
How can I add a Photo or a Picture editor

Dim h
With AxG2antt1
	.Columns.Add("Photo").Editor.EditType = EXG2ANTTLib.EditTypeEnum.PictureType
	With .Items
		h = .AddItem()
		.CellValue(h,0) = AxG2antt1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
		.ItemHeight(h) = 64
	End With
End With
431
How can I hide or show the "System" page in the color editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
		.Option(EXG2ANTTLib.EditorOptionEnum.exColorShowSystem) = False
	End With
	.Items.AddItem(255)
End With
430
How can I hide or show the "Palette" page in the color editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
		.Option(EXG2ANTTLib.EditorOptionEnum.exColorShowPalette) = False
	End With
	.Items.AddItem(255)
End With
429
How do I add a color editor

With AxG2antt1
	.Columns.Add("Color").Editor.EditType = EXG2ANTTLib.EditTypeEnum.ColorType
	.Items.AddItem(255)
End With
428
How do I change the masking character
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Mask").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
		.Mask = "###"
		.MaskChar = 48
	End With
	.Items.AddItem("")
End With
427
How do I mask an IP
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("IP").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
		.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	End With
	.Items.AddItem("1.2.3.4")
End With
426
How do I add a mask editor

Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Mask").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MaskType
		.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	End With
	.Items.AddItem("1.2.3.4")
End With
425
How to show or hide the week numbers header in a drop down date picker calendar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateWeeksHeader) = True
	End With
	.Items.AddItem("Today")
End With
424
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateShowScroll) = False
	End With
	.Items.AddItem("Today")
End With
423
How do highlight the "Today" date is the drop down date picker calendar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateMarkToday) = True
	End With
	.Items.AddItem("Today")
End With
422
How do I show or hide the "Today" button is the drop down date picker calendar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateShowTodayButton) = False
	End With
	.Items.AddItem("Today")
End With
421
How to specify the first day of the week in the drop down date picker calendar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateFirstWeekDay) = 1
	End With
	.Items.AddItem("Today")
End With
420
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateWeekDays) = "Du Lu Ma Mi Jo Vi Si"
	End With
	.Items.AddItem("Today")
End With
419
How can I change the name of the months in the drop down date picker calendar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateMonths) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
	End With
	.Items.AddItem("Today")
End With
418
Can I change the "Today" caption being displayed in the drop down date picker calendar editor
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateTodayCaption) = "Azi"
	End With
	.Items.AddItem("Today")
End With
417
How can allow empty date to drop down date picker control or a calendar control

Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DateType
		.Option(EXG2ANTTLib.EditorOptionEnum.exDateAllowNullDate) = True
	End With
	With .Items
		.AddItem(#5/12/2012#)
		.AddItem("")
		.AddItem(#5/14/2012#)
	End With
End With
416
How can I a drop down date picker control or a calendar control
With AxG2antt1
	.Columns.Add("Date").Editor.EditType = EXG2ANTTLib.EditTypeEnum.DateType
	With .Items
		.AddItem("Today")
	End With
End With
415
How can I have an OR combination of my bit values, something like a check-box list editor

With AxG2antt1
	With .Columns.Add("CkeckList")
		.Def(EXG2ANTTLib.DefColumnEnum.exCellValueFormat) = 1
		With .Editor
			.EditType = EXG2ANTTLib.EditTypeEnum.CheckListType
			.AddItem(1,"Bit <b>1</b>")
			.AddItem(2,"Bit <b>2</b>")
			.AddItem(4,"Bit <b>3</b>")
			.AddItem(8,"Bit <b>4</b>")
			.AddItem(16,"Bit <b>5</b>")
			.AddItem(32,"Bit <b>6</b>")
			.AddItem(64,"Bit <b>7</b>")
			.AddItem(128,"Bit <b>8</b>")
		End With
	End With
	With .Items
		.AddItem(112)
		.AddItem(2)
	End With
End With
414
How do I stop resizing the memo or a multiple lines edit control, while the user types
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MemoType
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoAutoSize) = False
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoHScrollBar) = True
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
413
How do I add a horizontal scroll bar for a memo or a multiple lines edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MemoType
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoHScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
412
How do I add a vertical scroll bar for a memo or a multiple lines edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.MemoType
		.Option(EXG2ANTTLib.EditorOptionEnum.exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
411
How do I add a memo or a multiple lines edit control
With AxG2antt1
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.MemoType
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = EXG2ANTTLib.CellSingleLineEnum.exCaptionWordWrap
	End With
End With
410
How to specify the proposed change when the user clicks a spin control.
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
		.Numeric = EXG2ANTTLib.NumericEnum.exInteger
		.Option(EXG2ANTTLib.EditorOptionEnum.exSpinStep) = 10
	End With
	With .Items
		.AddItem(0)
		.AddItem(10)
		.AddItem(20)
	End With
End With
409
How do I add a spin editor that allows only integer values
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
		.Numeric = EXG2ANTTLib.NumericEnum.exInteger
	End With
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
408
How do I add a spin editor
With AxG2antt1
	.Columns.Add("Edit").Editor.EditType = EXG2ANTTLib.EditTypeEnum.SpinType
	With .Items
		.AddItem(0)
		.AddItem(1)
		.AddItem(2)
	End With
End With
407
How do I specify in a drop down list editor, that I do not want to have predefined icon
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"The first item",1)
		.AddItem(2,"The second item",3)
		.AddItem(3,"The third item",2)
		.Option(EXG2ANTTLib.EditorOptionEnum.exDropDownImage) = False
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
406
How do I add a drop down editor, that allows only predefined values
With AxG2antt1
	.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
	With .Columns.Add("DropDown").Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.DropDownListType
		.AddItem(1,"The first item",1)
		.AddItem(2,"The second item",3)
		.AddItem(3,"The third item",2)
	End With
	With .Items
		.AddItem(1)
		.AddItem(2)
	End With
End With
405
How to allow the editor to work on insert or overtype mode
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditAllowOverType) = True
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditOverType) = True
	End With
	With .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	End With
End With
404
How to set foreground color for a locked, or read only edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Locked = True
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditLockedForeColor) = 8421504
	End With
	With .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	End With
End With
403
How to set background color for a locked, or read only edit control
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Locked = True
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditLockedBackColor) = 8421504
	End With
	With .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	End With
End With
402
How to set the number of characters selected, when an EditType editor is opened
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditSelLength) = 1
	End With
	With .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	End With
End With
401
How to set the starting point of text selected, when an EditType editor is opened
Dim var_Editor
With AxG2antt1
	var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EXG2ANTTLib.EditTypeEnum.EditType
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditSelStart) = 1
		.Option(EXG2ANTTLib.EditorOptionEnum.exEditSelLength) = 1
	End With
	With .Items
		.AddItem("000")
		.AddItem("111")
		.AddItem("222")
	End With
End With